﻿Imports DTO
Imports BUS
Public Class frmThemDonVi

    Public kt As Integer = 0

    Public maDV As String
    Public tenDV As String
    Public ghichu As String
    Public maTT As Integer

    Sub ThemDonVi()

        Dim dv As New DonViDTO

        dv.TenDonVi = txtThemTenDV.Text.Trim()
        dv.GhiChu = txtThemGhiChuDV.Text.Trim()
        If chkConQuanLyDV.Checked = True Then
            dv.MaTrangThai = 1
        Else
            dv.MaTrangThai = 0
        End If

        If DonViBUS.ThemDonVi(dv) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Thêm thành công đơn vị", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên đơn vị không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub

    Sub CapNhatDonVi()
        Dim dv As New DonViDTO

        dv.MaDonVi = txtThemMaDV.Text.Trim()
        dv.TenDonVi = txtThemTenDV.Text.Trim()
        dv.GhiChu = txtThemGhiChuDV.Text.Trim()
        If chkConQuanLyDV.Checked = True Then
            dv.MaTrangThai = 1
        Else
            dv.MaTrangThai = 0
        End If

        If DonViBUS.CapNhatDonVi(dv) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Cập nhật thành công đơn vị", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên đơn vị không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnThemLuuDV_Click(sender As Object, e As EventArgs) Handles btnThemLuuDV.Click
        If kt = 1 Then
            CapNhatDonVi()
        Else
            ThemDonVi()
        End If
    End Sub

    Private Sub btnThemDongDV_Click(sender As Object, e As EventArgs) Handles btnThemDongDV.Click
        Me.Close()
    End Sub

    Private Sub frmThemDonVi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If kt = 1 Then
            txtThemMaDV.Text = maDV
            txtThemTenDV.Text = tenDV
            txtThemGhiChuDV.Text = ghichu
            If maTT = 1 Then
                chkConQuanLyDV.Checked = True
            Else
                chkConQuanLyDV.Checked = False
            End If
        End If
    End Sub
End Class